Dispenser: verb 'poke/touch/rub' definition
Possible language definitions

--- mpFORTH:
self.contents[0] "Nothing happens." or-fail
  .prototype new_proto 
  dup
    self.container move-into
    "<self.vis?<self> appears in the room.>" other-nact
    
--- Perl:
my $obj = MObject->new('prototype' => ($self->contents->[0] or die "CFAIL:Nothing happens.")->prototype);
$obj->move_into($self->container);
$obj->nact("<self.vis?<self> appears in the room.>");

--- Smalltalk:
| obj |
obj _ MObject newWithProto: ((self contents first orFail: "Nothing happens.") prototype).
obj moveInto: self container.
obj nact '<self.vis?<self> appears in the room.>'.

--- DGScripts:
newproto obj %self.contents.0.prototype%
move obj %self.container%
nact obj <self.vis?<self> appears in the room.>

--- javascriptoid:
var obj = MObject.new(prototype: assert(self.contents.0, "CFAIL:Nothing happens.")->prototype);
obj.move_into(self.container);
obj.nact("<self.vis?<self> appears in the room.>");
